home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Educational Software Cooperative 4
/
Educational Software Cooperative 4.iso
/
spanh16
/
install.fil
< prev
next >
Wrap
Text File
|
1995-11-15
|
4KB
|
196 lines
'' Install Script for SPANISH HELPER 9/19/94
BACKGROUND 63
LANGUAGE ENGLISH
BORDER 1
TELESCOPE OFF
WINOPEN 18 2 95
"Pik A Program & SDA "
""
"present"
""
"SPANISH HELPER"
""
""
WINUPDATE +11 +5 222
"SPANISH HELPER "
PAUSE 100
TELESCOPE ON
SHADOW ON
:which_drive
SPACE 600
DRIVE C 0 12 31 15 32 14 79
PATH \SPANISH 0 12 31 15 32 14 79
exist SPAN.1
JUMP.YES DOES_EXIST1
JUMP.NO NOT_EXIST1
:NOT_EXIST1
WINOPEN 0 50 79
""
" The file Span.1 is not on the "
" current installation disk"
""
" Do you wish to continue with the "
" current installation (Y/N)? "
ASK 49 31
pause 250
JUMP.NO STOP_INSTALL
WINCLOSE
DISK 0 Span.1 0 0 31
:DOES_EXIST1
unpack Span.1 12 10 31 32 14 79
JUMP.FAIL INSTALL_FAILURE
WINOPEN 0 12 79
""
"Spanish Helper has now been installed on your hard drive"
""
" To run the program..."
"Change to the drive and directory you have chosen in this setup (usually"
"C:\SPANISH)."
" Type "GO" and then hit the enter or Return key "
" We hope you enjoy learning with Spanish Helper so much that you'll send"
" the registration form to get the intermediate and advanced levels!"
" Press the [Enter] key to continue."
""
""
WINUPDATE +30 +3 30
"~1~2"
WINUPDATE +30 +12 27
"THANK YOU"
WAIT +36 +12
WINCLOSE
WINOPEN 0 12 31
"Are you using this program outside of Europe?"
""
WINUPDATE +31 +2 30
"(Y or N)"
ASK +39 +2
WINCLOSE
JUMP.NO NOT_USA
WINOPEN 0 12 31
"Would you like to SEE the order form for Spanish Helper?"
""
WINUPDATE +31 +2 30
"(Y or N)"
ASK +39 +2
WINCLOSE
JUMP.NO PRINT_INSTALL.TXT
VIEW ~1~2\ordUSA.txt 79 31
:PRINT_INSTALL.TXT
WINOPEN 0 12 31
"Would you like to PRINT the order form for Spanish Helper?"
""
WINUPDATE +31 +2 30
"(Y or N)"
ASK +39 +2
WINCLOSE
JUMP.NO EXIT
WINOPEN 0 0 31
""
" Printing the order form ... "
""
PRINT ~1~2\ordusa.txt
WINCLOSE
JUMP.FAIL PRINTER_ERROR
JUMP EXIT
:NOT_USA
WINOPEN 0 12 31
"Would you like to SEE the European order form for Spanish Helper?"
""
WINUPDATE +31 +2 30
"(Y or N)"
ASK +39 +2
WINCLOSE
JUMP.NO PRINT_INSTALL.TXT
VIEW ~1~2\ordeuro.txt 79 31
:PRINT_INSTALL.TXT
WINOPEN 0 12 31
"Would you like to PRINT the European order form for Spanish Helper?"
""
WINUPDATE +31 +2 30
"(Y or N)"
ASK +39 +2
WINCLOSE
JUMP.NO EXIT
WINOPEN 0 0 31
""
" Printing the order form ... "
""
PRINT ~1~2\ordeuro.txt
WINCLOSE
JUMP.FAIL PRINTER_ERROR
JUMP EXIT
:PRINTER_ERROR
WINOPEN 0 12 79
"Your printer is not responding. Possible problems:"
" -- Printer is not turned on"
" -- Printer is out of paper"
" -- Printer is not attached to LPT1 (parallel port 1)"
""
"Do you want to try to print again (Y or N)?"
ASK 57 18
WINCLOSE
JUMP.YES PRINT_INSTALL.TXT
:EXIT
WINOPEN 0 12 31
" Thank you for using "
""
" Spanish Helper"
""
"You have a fully working shareware evaluation copy. We hope"
" that you will be fluent in Spanish in no time!"
""
" Please register your shareware!"
""
WINUPDATE +17 +8 30
"Please register your shareware!"
WINUPDATE +12 +11 31
"┤ Press the [Enter] key to continue ├"
WINUPDATE +24 +11 30
"[Enter]"
WAIT +47 +11
WINCLOSE
shell
"~1"
"cd ~2"
BORDER 2
WINOPEN 0 12 47
" If you're not sure you have the latest shareware copy of"
"Spanish Helper, call the Software Creations BBS:"
" the home board of Pik A Program"
""
""
""
""
""
""
" Press the [Enter] key to run Spanish Helper."
WINUPDATE +27 +2 160
"Software Creations BBS"
WINUPDATE +13 +4 47
"More lines all the time to Serve You 24 Hours per Day!"
WINUPDATE +14 +5 111 ' you can winupdate more than
"(508) 365-2359 2400 baud" ' one line at a time
"(508) 368-4137 2400-14.4K USR"
"(508) 368-7036 2400-14.4K V.32"
WAIT +36 +10 ' wait for the enter key
RUN ~1\~2\go
END ' exit the system normally
:INSTALL_FAILURE
WINOPEN 0 12 79
"THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
""
"Possible reasons:"
" -- The floppy disk was removed prior to completion."
" -- The floppy disk was damaged during shipping."
" -- Your disk drive is out of alignment."
" -- The files were corrupted some other way."
""
WINCLOSE
WINOPEN 0 12 31
""
" Press [Enter] to Quit."
WAIT 47 15
:STOP_INSTALL
winclose
END